Private Casting/Casting One.bin/Docs/Shop/vmag.dir/Internal_29.ls

Text File | 1998-02-21 | 368 b | 20 lines

on mouseEnter
  cursor([cast "curs", cast "mask"])
end

on mouseLeave
  cursor(-1)
end

on mouseDown
  repeat while the mouseDown
    if the scrollTop of member the castNum of sprite 17 <> 0 then
      set the scrollTop of member the castNum of sprite 17 to the scrollTop of member the castNum of sprite 17 - 2
    end if
  end repeat
end

on mouseUp
  cursor(-1)
end